home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / guiext162.lha / GuiExtension / Demos / GuiDemo.Amos / GuiDemo.amosSourceCode < prev   
AMOS Source Code  |  1997-05-04  |  829b  |  33 lines
  1. '
  2. '                            HotLinks Demo v 1.0 
  3. '    
  4. ' No comment... run it and cry :) Only the MUI and ClassAct offers these 
  5. ' advanced functions.... but with the GUI Extension is easier! 
  6.  
  7.  
  8. Dim A$(10) : Extension_24_0018 1,1,20 : Extension_24_0494 1,18,50,1000 : Extension_24_0494 1,16,0,100
  9.  Extension_24_0494 1,17,0,100 : For I=1 To 10 : Read A$(I) : Next 
  10.  Extension_24_009E 1,0,1,Array(A$(0)) : Music 1
  11.  
  12.  
  13. 'This is the MAIN loop.... only ONE instruction!!!! Awesome :) 
  14. '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ 
  15. Repeat 
  16.    
  17.    A= Extension_24_0034 
  18.    
  19. Until A=-1
  20.  
  21.  
  22. Music Off : Extension_24_0130 
  23.  
  24. Data "GUI Extension"
  25. Data "   V1.61"
  26. Data "-------------"
  27. Data " ï¿½1995-1997"
  28. Data "Dairymen Soft"
  29. Data "-------------"
  30. Data "   Simply"
  31. Data "  AMAZING!"
  32. Data "-------------"
  33. Data " AMOS RULEZ!"